psb

1 setlinejoin

1 setlinecap

/lin {exch it 2 copy lineto stroke newpath moveto} def

/pat {pop gr} def

pse